home *** CD-ROM | disk | FTP | other *** search
/ You're the Director / You're The Director.iso / pc / pcf / di.dir / 00080_Play Movie I.ls < prev    next >
Encoding:
Text File  |  1995-10-08  |  663 b   |  33 lines
  1. on mouseDown
  2.   global comp, prev
  3.   if prev > 0 then
  4.     set prev to 0
  5.     updateStage()
  6.     repeat with x = 2 to 8
  7.       set the visible of sprite x to 1
  8.     end repeat
  9.   end if
  10.   repeat with i = 13 to 18
  11.     puppetSprite(i, 0)
  12.   end repeat
  13.   testbut()
  14.   set comp to 1
  15.   set the textSize of field "movie" to 48
  16.   set the textSize of field "name" to 36
  17.   repeat with x = 21 to 45
  18.     set the visible of sprite x to 0
  19.   end repeat
  20.   updateStage()
  21.   repeat with x = 46 to 47
  22.     puppetSprite(x, 1)
  23.     set the visible of sprite x to 1
  24.     puppetSprite(x, 0)
  25.   end repeat
  26.   if count(movielist) > 0 then
  27.     unLoadCast()
  28.     go(18)
  29.   else
  30.     go("NoMov")
  31.   end if
  32. end
  33.